﻿Public Class BarPohon

    Private Sub BarPohons_Tick(sender As Object, e As EventArgs) Handles BarPohons.Tick
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub
End Class
